//DBASXSIE JOB (8BRJ6A,3B42),'ZWADA D.M.',CLASS=X, 00001 // MSGCLASS=Y,NOTIFY=DBASXS 00001 /*JOBPARM R=3B42 00005*10 //JESWTR OUTPUT JESDS=ALL,DEST=LOCAL 00006*10 //* //********************************************************************* 00090*10 //* STEP PROGRAM PURPOSE * 00091*10 //* ====== ========== =============================================* 00092*10 //* JS010 IEBGENER COPY UNLOAD DATASET * 00093*10 //* * 00094*10 //* RESTART: RESTART AT JOBSTEP JS010 * 00095*10 //********************************************************************* 00096*10 //JS010 EXEC PGM=IEBGENER, // REGION=0K 00098*10 //SYSUT1 DD DSN=PSFTX.DTYUL.SFTXTY01.DTYTRCV1.SAVED, 00099*10 // DISP=OLD 00100*10 //SYSUT2 DD DSN=PSFTX.DTYAT.VIEPIE.GOODRCV1(+1), 00101*10 // DISP=(NEW,CATLG,DELETE), 00102*10 // MGMTCLAS=MC0032, 00103*10 // SPACE=(CYL,(15,15),RLSE), 00104*10 // DCB=(SYS3.DSCB,BUFNO=30) 00107*10 //SYSPRINT DD SYSOUT=*, 00108*10 // OUTPUT=*.JESWTR 00109*10 //SYSDUMP DD SYSOUT=*, 00110*10 // OUTPUT=*.JESWTR 00111*10 //SYSIN DD DUMMY 00112*10 //* 00125*10 //********************************************************************* 00090*10 //* STEP PROGRAM PURPOSE * 00091*10 //* ====== ========== =============================================* 00092*10 //* JS020 IEBGENER COPY UNLOAD DATASET * 00093*10 //* * 00094*10 //* RESTART: RESTART AT JOBSTEP JS020 * 00095*10 //********************************************************************* 00096*10 //JS020 EXEC PGM=IEBGENER, // REGION=0K 00098*10 //SYSUT1 DD DSN=PSFTX.DTYUL.SFTXTY01.DTYTRCV2.SAVED, 00099*10 // DISP=OLD 00100*10 //SYSUT2 DD DSN=PSFTX.DTYAT.VIEPIE.GOODRCV2(+1), 00101*10 // DISP=(NEW,CATLG,DELETE), 00102*10 // MGMTCLAS=MC0032, 00103*10 // SPACE=(CYL,(60,10),RLSE), 00104*10 // DCB=(SYS3.DSCB,BUFNO=30) 00107*10 //SYSPRINT DD SYSOUT=*, 00108*10 // OUTPUT=*.JESWTR 00109*10 //SYSDUMP DD SYSOUT=*, 00110*10 // OUTPUT=*.JESWTR 00111*10 //SYSIN DD DUMMY 00112*10 //* 00125*10 // 00125*10 //********************************************************************* 00335 //* STEP PROGRAM PURPOSE * 00336 //* ====== ========== =============================================* 00337 //* JS070 TLSPDRTR DRA TRIGGER STEP 00338*25 //* RESTART: JS070 AFTER DETERMINING CAUSE OF ABEND * 00339*25 //********************************************************************* 00340 //JS070 EXEC PGM=TLSPDRTR, 00341*25 // PARM=SFPDBA 00342 //TLSTRGGR DD DSN=SYS4.DRA.TRIGGER, 00343 // DISP=(SHR,KEEP,KEEP) 00344 //SYSPRINT DD SYSOUT=*, 00351 // OUTPUT=*.JESWTR 00352 //TLSNREPT DD SYSOUT=*, 00353 // OUTPUT=*.JESWTR 00354 //CNTRLCDS DD * 00345 PSFPD.DBAVL.DRA.CNTL (-0)(-3)G 00346 /* 00350 //*PSFPD.DBAVL.DRA.CNTL (-0)(-3)G 00346 //* 00350 //